(global-map): Bind <home> to beginning-of-line,

<end> to end-of-line, C-<home> to beginning-of-buffer, and
C-<end> to end-of-buffer.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 4decb7a857e1127f15cf55e92c6b6cd5ec56d59e..6b7bb02e9b7e3b0e4672d9e8c804f5abb3709876 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -622,7 +622,8 @@ language you are using."
 (define-key global-map [delete] 'backward-delete-char)
 
 ;; natural bindings for terminal keycaps --- defined in X keysym order
-(define-key global-map [home]          'beginning-of-buffer)
+(define-key global-map [home]          'beginning-of-line)
+(define-key global-map [C-home]                'beginning-of-buffer)
 (define-key global-map [M-home]                'beginning-of-buffer-other-window)
 (define-key global-map [left]          'backward-char)
 (define-key global-map [up]            'previous-line)
@@ -636,7 +637,8 @@ language you are using."
 (define-key global-map [C-next]                'scroll-left)
 (define-key global-map [M-next]                'scroll-other-window)
 (define-key global-map [M-prior]       'scroll-other-window-down)
-(define-key global-map [end]           'end-of-buffer)
+(define-key global-map [end]           'end-of-line)
+(define-key global-map [C-end]         'end-of-buffer)
 (define-key global-map [M-end]         'end-of-buffer-other-window)
 (define-key global-map [begin]         'beginning-of-buffer)
 (define-key global-map [M-begin]       'beginning-of-buffer-other-window)